unit netplay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ScktComp, XPMan,OpenGl;

type
  TForm1 = class(TForm)
    PortField: TLabeledEdit;
    XPMan: TXPManifest;
    cs: TClientSocket;
    ConnectBtn: TButton;
    HostField: TLabeledEdit;
    procedure csConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ConnectBtnClick(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}


procedure TForm1.csConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Form1.Hide;
Form1.Close;
end;

procedure TForm1.ConnectBtnClick(Sender: TObject);
begin
cs.Host:=HostField.Text;
cs.Port:=StrToInt(PortField.Text);
cs.Active:=true;
end;

end.
